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RTLOGIO - CTERM LOG 10 16-SEP-1984 02:13:04 VAX/VMS Macro V04-00 Page 0 R 
Table of contents Vv 
(2) 1 DECLA S$ 
tg} 187 aie 10 = LOG 1/0 
(4) ° CTERMSOPER_LOG = OPEN LOG FILE 
(5) 4 STrGCSURT TEE Te - CLOSE LOG FT —E IF OPEN 
(6) 87 RTLOGSWRITE_ STRING = write string to log file 
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BiL0618 - CTERM LOG 10 <™ ab 9 4 0: 13:96 AX/VMS Macro V04-00 Page 


«TITLE RTL G10 0° = CTERM LOG I0 
-IDENT 'V04=000' 


RRRAEAAAAAAAATAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAATAARAAAAAAAAEAARAAAAEAAARAAEAAATES 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OOOOOOOCOoSooO 
OOoOOoCoooooo 
COOCOCCCOCoCooo 


v03-001 vO3525 Jake Van 10-JAN-1984 
x up error handling. mag write behind to options to reduce 
ABE of /LOG. 


: 
4 * 
5 ;* * 
7* * 
Sit 
§ is : 
7* « 
10 ;* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
11 ;* ONLY IN — DANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE # 
8 \¢ 3* INCLUSION OF THE ABOVE Se Rete NOTICE. THIS SOFTWARE OR ANY OTHER * 
13 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
000 14 ;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 13 :* TRANSFERRED. a 
e ® 
44 i$ ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 i? ‘* CORPORATION. * 
e ® 
0000 1 3;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 ¢ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 3* * 
0000 4 3 
94 2 3 RRR AEAAERAAAEAAEAAARARARAARAAREAAAEAEA AREA 
0000 7° 
0000 8 ;++ 
0000 9; 
0000 QO ; FACILITY: RTPAD, SET HOST 
0000 13 
B58 ¢ 3; ABSTRACT: 
0000 4: This module provides the support for doing logging of an interactive 
800 2 ; terminal session. 
0000 7 ; ENVIRONMENT: 
444 3 3 
000 9; user mode. 
000 40 ; 
000 41 ;-- 
000 4 3 
44 $7 3; AUTHOR: Jake VanNoy, CREATION DATE: 5-Jun-1983 
$8 43 : MODIFIED BY: 
0 ‘3 : v03-003 iiv03se Jake Yantioy 10-APR-1984 
09 $8 : d CALL entry point for DTE code. 
50 : V03-002 JLV0333 Jake VanNoy 28-F EB-1984 
0 51; Add minor amount of A = that is goly ye used for debug 
8 § , purposes. Outputs trace to RTPADSTR 
0 4: 
ae 


<z 


RTPAD.SRCJRTLOGIO.MAR; 1 (1) 


vor~000 Sp omeaedl "SrSEP=198¢ 08:15:00 EmtpapssncSatuvctocman:1 "28° 9, 


f000 39" 


>mn 
zw 
>= 
~ 

—— 
oo 
=z 


OOoOOCOOooOooO 


OOOOOOSCOoSooO 


7 


Me See19Be 88:15:46 


-SBTTL DECLARATIONS 
; INCLUDE FILES: 

SRTPADDEF 

STSADEF 


; MACROS: 


: EQUATED SYMBOLS: 


: OWN STORAGE: 


iscellaneous symbols 
TERM packet defintion 


AX/VMS Macro V04-00 
RTPAD.SRCJRTLOGIO.MAR; 1 


me 


a + | 


SOQOQCQooQoooooooooooooooo 


SOooooooooooooooooSo 
SoOoOoCoOoooooooooosoSo 


OOOCCCOCOSOOSCSOSCOOOOCOOSOOOOOSOOOOoCOOOO 


MSOOOOoOoCoOSoo 
SOOOOS0O0 00 OOOO O00 09 09 09 09 09 69 09 09 09 09 SII NII NINO A AAAAAAO 


MEW O OONAUE WN SO ODNAU LS WN SO OONOAUS WN OOONOUS Wh 
. 


—— = 2=OOCOOCOOOCOSOSoSoO 
TNH HTH NODOOUIWIUW 
WM NDWDOOLLHLS LOCOS 


Ooooooooooooooosoeo 


a 


3; write behind for performan 


~-PSECT _RTPAD,LONG ; READ/WRITE DATA 
«ALIGN LONG 
cterm_fab: $F AB DNM = <SETHOST.LUG>,- 
FAC = PUT,- 
RAT = CR,- 
FOP = SQ0,- ; sequential only 
ORG = SEQ,- ; sequential 
RFM = VAR,- 3; variable 
NAM = cterm_nam 
cterm_rab: $SRAB i” . cterm_fab,- 
ROP = WBH 
cterm_nam: $NAM ESA = file_str,- 
ESS = nam$c_maxrss 
filespec: - long 0 
address file_str 
file_str: -blkb nam$c _maxrss 
LOG_A_EXT: eascii /.LOG/ 
LOG_S_EXT = .-LOG_A_EXT 


17 
0050°CF 
5202 

0D 
OAOD 8F 
51 03 
52. CO 
A451 

52 

03 50 
17 


~~ Or 


oo |-o-o0 -9 a+" 4 


oo Non m= mm 


ow m 
vp © 


10 M12 ig-SEP=1986 02: 
0 = LOG 1/0 =$Fb= 1382 88: 


RMSLOG_ 
AD ,nowr 


um 


- - LOG 1/0 


+ 
+ 


; FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 
BSBW CTERM$LOG_10 
INPUT PARAMETERS: 


R1 = address of string 
R2 = Length 


IMPLICIT INPUTS: 
NONE 


2 OOO 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 

COMPLETION CODES: 
NONE 


SIDE a 
NON 


oO Be Se Ge Ge Ge Ge Ge Se Ge Se Ge Be Ge Ge Se Ge Ge Se Ge Se Ge Se Se Ge Se Se Sse Se Se Sete 
‘ 
t 


TERMSLOG_I0:: 


PUSHR #*M<RO,R1,R2,R4> 
MOVAB W*CTERM_RAB,R4 


CMPL = #2, R2 

BGEQU 108 

CMPW = #*XOA0D, (R1) 
BNEQ 108 

ADDL 


# »R1 
SUBL  #c.R2 
MOVL  R1,RABSL_RB 
MOVW  R2,RABSWIRS 


$PUT RAB = R4 
BLBC RO,250$ 


POPR #*M<RO,R1,R2,R4> 


_ 
So 
bad 


F(R4) 
Z(R4) 


nO 
~m 
J 
So 
sad 


WR SO ODNAUES WN 9 ODNAUES WIN 8 OD NAU EWN @§ 0 OO NOAOU EWN "OVOOVNOAOUS WIN" OWOOo~ 


™ 
wn 
Oo 
Aad 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


13:04 VAX/VMS Macro v04-00 


740 CRIPAD.SRCJRTLOGIO.MAR; 1 


An error writing the output file may turn off logging. 


; address of rab 


; Must be at least 2 bytes long 
; or skip cr,lf check 


; CR, LF at start of record? 
. i not, branch 


; Subtract 


; set buffer address 
; and size 


; output Line 
; signal error 


; restore 
>; return 


<z 
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RT = CTERM LOG 10 16-SEP-1984 13:04 VAX/VMS Macro V04-00 P 
VoreG08 CTERMSLOG 10 - LOG 1/0 g7 SEF 13 4 86:13:93 D.SRCIRTLOGIO.MAR: 1 ee 3) 
| ¢ ; signal error and turn off logging 
eseneeadl DD 1 § PUSHL £5 5°_AUSTCLOSEFL 3; closing file 
0 oD 1 PUSHL R 3 real stetus 
QOOOOOF4'EF 9F 198 PUSHAB FILESPEC : file spec 
0000's Db 4p 13 PUSHE ASHRS_WRITEERR!<REMS_FACILITY@t6s 5° Loggi 
ooo00seo'Gr. OS FB 46 171 CALLS | #SCG*CIBSSIGNAL ms Signal eros ner 
6077 30 ry 178 BSBW CTERMSCLOSE_LOG ; close file 
DB édmiI 30 175 BRB 00$ 3 i 
052 176 ' ay 


R 
s 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
$ 
C 
C 
C 
C 
C 
C 
C 
C 
C 
] 
] 
] 
0 
D 
D 
) 
D 
) 
) 
D 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
F 
G 
LI 
I 
I 
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voe-000 CTERMSOPEN-LOG = OPEN LOG FILE "BrSEp=}9Be 09:15:40 ERTPAD SREIRILOGOMAR:1 28° 8, 
83 _- -SBTTL CTERMSOPEN_LOG = OPEN LOG FILE 
05 FUNCTIONAL DESCRIPTION: 
b2 Opens log file and turns on logging flag if successful. 
82 CALLING SEQUENCE: 
b2 CALLS #1,CTERMSOPEN_LOG 
08 
82 4(AP) = Descriptor of log file to open (zero if none specified) 
IMPLICIT INPUTS: 
NONE 
OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 

If no errors, FLGSM_LOGGING will be set in CTERM_FLAG 
COMPLETION CODES: 

RMS codes from CREATE and CONNECT 
SIDE EFFECTS: 


| 
INPUT PARAMETERS: 


DSHS NMP PNPNoNononoponononononononyny 


WN WIDIPINIPYDIPINIPIDINIDND 2 9 9 OP FOOOSOOCCOCOCO OOO OOOO OO OWMdOcD CD CDCDODCO~I~ 
FPWR OOD NAUES WIN 9 OD NAUE WN OS OO ND UE WN 3D OO NOUS WN OWONAU SWI —OWO0 


SOOOOCOSCSOOOSOSOSOSOSOSOOOSOOSOOOSOOSOOSOSOSOOSOOCOOOOOOOOOOOOOOCOOCOOOOOOOO 
POPPOPNININYNINYIPDNOPONONININYINIPININIPIPININININININPINPININININININDS 2 9 9 Ss SS 


DOOOCOODOOCOCOSOOCOCO OOOO SOOOSBVOOSOOOOCOOCOOCOCOCOOOCOOCOOCOOCOO 
COPY SY OO ODO FIN NOAOAA MANNA HS VIII UU UU 


000C -ENTRY CTERMSOPEN_LOG, “M<R2,R3> 
52 QOO00000'EF 9€ MOVAB CTERM_FAB,R2 ; address of FAB 
53 04 AC OD MOVL 4(AP), 3 Fetch descriptor 
if : BEQL 20$ : If none, then use default 
4A2 63 90 1 MOVB (R3) ,FABSB_FNS(R2) 3; size of file spec 
2c A204 A300 5 MOVL  4(R35,FABSC_FNA(R2) : address of file spec 
2 04 90 A MOVE #LOG_§ EXT, FABSB_DNS(R2): size of default extension 
30 A2 OOO001FB'EF 9€ . 208; MOVAB LOG_A_EXT,FABSL_BNA(R2) ; Address of default extension | 
18 A2  00000000'8F 0 6 "  MOVL____ #SHR$_OPENOUT! <REMS_FACILITY@16>,FABSL_CTX(R2) ; In case of error 
E SCREATE FAB = (R2) ; Create file 
30 50 =«E9 : BLBC RO,50$ : Branch on error 
52 0094'CF 9E A MOVAB W*CTERM_NAM,R2 3; address of nam 
O00000F4'EF 0B A2 98 F MOVZBW NAMSB_ESL(RC),FILESPEC : Length 
52 00000030 er 9E 7 MOVAB CTERM_RAB,R2 ; address of rab 
18 A2 00000000 ° 8F b0 E MOVL #SHRS_OPENOUT!<REMS$_FACILITY@16>,RABSL_CTX(R2) ; In case of error 
6 SCONNECT RAB = (R2) ; Connect to file 
08 50 =«=€9 4 BLBC RO,50$ ; Branch on error 


= CTERM 


LOG 10 1 me ah 9 Ooh? VAX/VMS Macro v04-00 Page 7 
CTERNSOPEN L0G - OPEN LOG FILE ~SEP-1984 


URIPAD: SRC RTLOGIO.MAR; 1 (4) 


08 <A8& 00B2 2 BISW #FLGS$M_LOGGING,-=- 
00000000" EF 0084 § CTERM_FLAG ; set logging flag 
04 0089 RET 3 exit 
QOBA 8 : 
OOBA 9 ; Error has occured 
OBA 40 
OBA 541 §0$: 
52 DD OOBA g PUSHL R2 ; address of RMS context block 
00000000 ' GF 01 FB Soes 24 CALLS #1,G*UTILSREPORT_I0_ ERROR ; Signal error 
50 01 400 O0C Ste ay #1,R0 ; Set Success 
3: ex 


= CTERM LOG 10 16-SEP-1984 02:13:04 VAX/VMS Macro V04-00 Page RI 
CTERMSCLOSE_LOG = CLOSE LOG FILE IF OPEN ety 7 8g: 18:96 RTPAD.SRCJRTLOGIO.MAR; 1 ° () 
oer rf . ~SBTTL CTERMSCLOSE_LOG - CLOSE LOG FILE IF OPEN ; 
‘$28 
4 29 ; FUNCTIONAL DESCRIPTION: 
O¢f 33 : Opens log file and turns on logging flag if successful. 
poee 22 3; CALLING SEQUENCE: 
aoc 2§ : BSBW CTERMSCLOSE_LOG 
pect 28 ; INPUT PARAMETERS: 
C7 3 NONE 
00C7 60 ; 
Baee 61 ; IMPLICIT INPUTS: 
0C7 $6 : 
00C7 63 ; CTERM_FLAG 
00C7 64 ; 
00C7 65 ; OUTPUT PARAMETERS: 
00C7 66 ; NONE 
00C7 67 ; 
00C7 68 ; IMPLICIT OUTPUTS: 
00C7 269; 
00C7 509 3 FLGSM_LOGGING will be cleared 
00C7 713 
00C7 si¢ 3; COMPLETION CODES: 
00C7 73; 
00C7 74 ; SIDE EFFECTS: 
00C7 te 3 
00C7 76 ;-- 
00C7 77 
00C7 278 
pace 280 CTERMSCLOSE_LOG:: 
10 OOOOOOOO'EF 03 4=€5 00C7 81 BBCC #FLGSV_LOGGING,CTERM_FLAG,100$ ; branch if not logging, clear bit 
50 OO000COO00'EF 9E OOCF at MOVAB CTERM_FAB,R ; FAB address 
00D6 8 $CLOSE FAB=RO ; close 
OODF 284 100$: 
05 OODF 285 RSB 


ose | 
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RT = CTERM LOG 10 16-SEP-1984 02:1 06 AX/VMS Macro V04-00 Page 9 
vose000 RTLOGSWRITE_STRING = write string to log §: -SEP-1984 1 08:1 RTPAD.SRCJRTLOGIO.MAR; 1 . (6) 
ODED a -SBTTL RTLOGSWRITE_STRING - write string to log file 
SB 
abe) 0 ; 4(AP) = address 
00E0 91 ; B(AP) = byte count 
it 3 
00064 Boe + -entry rtlog$write_string,“*M<R2> 
51 04 AC 00 bOES 95 MOVL 4C(AP) RI 
52.08 “f 8 OE6 36 MOVL B(AP) -R2 
FFI OEA 9 bsbw cterm$log_ io 
494 38 RET 
EE 9 


~~ 
oo 
-—~ 
| © a 
j Le] o 
j © N 
i a i 
i é 
} wh 
| oO 
- 
j _— - 
| os. . 
a ° A 
=< ” So a) 
ot 4 o o 
| 1 — -: - o 
‘oO . ~ 
end °o cad 5 
ovo = Oo eh 
=o oa So 
I ~ o o 
or >] ee ~~ 
ca a o e 
on ~ co a 
GBvU ~ | s Oo 
za = ~ ° es o | 
” > 4 o a | 
” i >a a ~ = 
=a ~ -_ - (e) . ry 
>t ao) ~ ~ w ° ~ oe A Oo 
~a » oa o ad . o o 
x<e — ee a =< ~ oO al 
<< 2 wv @ -- ive . . 
>u eo c oe _ < o SF ce 
c ww ad “ -- c o oOo 
a € CU - wn ~ 
To ° c ao <= o ~ ~ 
ow = . c be ao aA . 
7 ef g ~ te Oo tom o will o o aA 
mw cr a c << ad ~~ o 
sy * vo ~ wv = . Oo /; ~ ~ 
o- oe << ae aw c ea a | bl ad - 
we - ow > C Vv i) I oO Oo ba 
oo =< <« - ~ a8 ~*~ 2 La] PD 
Qa wo a ~ a — — ~~ . o 
wv = S) ~~ t =) vw cH w 
e000 > @ ry s a < aa =< o - 
an — w c zB - - x< « ~N . 
-— za a ~ -- e . a 
$e oOo Ft a wy ’ a o 
aa nl on ao iad od _ Oo a 
wus - & a « @ 7 Vv =< 0 a — 
mn cat = 7) y c < =e = e e die 
i) = ww w eo 4) w a - w ry A ~ a 
own =< x « ae @ e > ~ « So o o = = 
- w ee me : = = w -e we oO a] < .-¢ a? 
—- oe SS o- O™“~ ~ ~ ~ . ~ . val _ w - @ 
oa =) a m4 
° ~ a io 
— o ao) a re) re) re) 73 73 a=) ~ & Oo 
oa) << - oo - - - - - oe - o o - « a 
- oOo a [s) cc v Vv is) Vv  ] tS) Vv c Cc — <« ? -_- 
- ~~ oo ww Ww wo uw nw w“ a) ° °o Zz uw —?> 
ve « = @ Ss @ @e eo oe © «a @ ~ a -_- « So 
> ae ee ° ° . ~~ ~ ~ 
c x= oO 
-_— oO c oe 
— ou * ee oo ee vw vw ve vw 
oad a ee w CY) -—- os - 
nn w <« - > - ~ vw fe) e) v 
— &. - wn vw Cal ad 2 vo ww Vad ad 
eg So &- thd » o w < = «a O-) oe oO «e 
ee v az oo ” ce [o 4 = ] 7 ~ . 
- ” <t a 4 4 Vv - i 
a o = = NS 2 z od a . rt) 
zB — a t a t _ _ oe . ~ . nn 
@m@v oo oo —_ af af = eo re) ~ o 
a us a — J > A ad A > wo t ou wn °* oe - ee 
oa * @ @ o ‘2 o oa o Ee mo 7) fa Af ry rey 
o Qa w w @ @ @ oO e cv) °o a o Oo o oOo 
z . - 2 oa oa r=) oa oo = Ee wi E - ~w iva nes 
_— 
ec K—mrNNO OOO -—w Lal wv mo ~ ts) ao - nm wr o 
or COOOCOCOO ooo <—-— _ _ cd — - —™N N um oN N ~ 
7 MMMM ee ee ea) » m me ~ ~ me ~*~ mao Mm ~ ~ 


te Nhe we 
CO WWW WW a. OO  INIOUIM TU TNUN AT OOR. ODDOOS OOO OWW & LOK CUM TANNA OW 
=Zz3Bs COOCCOCOCO RK eK eK KR RR OC CR RF Cee 


aad SOOO OOOOOOOOOOOSS SOOEOGESSESESESSSSeesoooesoo 


: 
c, 


- > Ll > = - 
OWN toveoatovNnu DOsOooeoaruMm Kf-Od<r OOK. 


voo wo 
ONMMSOSO WN OOO RK ORV OFT K— ONMRONMNNONOOM MRO © 
So So Ss PCUCUCURIIY 
oOo aces Aro Noy. CO@ODOO-O NS dda) oO Oooo oO MOA wu 
ON TOR SRN OSU wrowrury wnor Bs cs wr Mo Ww wv 
oo MOE MMO OMr -—-—-Or@O -—wow oo ooo w wT wn wn 
Om (ORM OON PF OW OMmNOMN COMO oooooceco ww w w 
= ion a a = - 
oo Kr, mw New Or OAnmV— &—- WO wT nr o- - wr 
AN KOO ro oo ovymM<ecwru Aas Or. w aw ww ~~ w 
- Pe a Me ol Lol) 
oo MT mo wos oo rN wv o 
unm RO Kw oon = oo ww wv ~N 
Oo oO -vw weuw S o w Oo iv 
N om or row Nw N wv 
oO 53 ~~ <qowuo <r. oe oOo w ~o 
~N oO oo Mow wen own w ~w 
o wo mo owa ao mw - oO 
~N or orm Noy 3 ow w ™N 
oO ou Ow aor = wn ~w N 
un NO NO WO nw eB toe tae 
-- 
oO No ew Tro wn we. — com _ 
N r~O ro mn wo oe w w w 
oO mo us ov mw ~w o w 
N oN Kn wn wo wv ~N wv 
oO mw o<x o Lad w 
~~ oS OM Se RS a. =. 2 


penguesnemitigaiataioetiahiiaiasrepataceimnciteastnahnaviia — ————-} 
G 13 | 


41 
42 null_line: eascic /.../ 


43 
00000385" 000003AC '000003A7'00000401' 304 msg_type_table: .long 150$,10$,20$,30$,40$,50$,60$,70$,80$,90$,100$,150$.150$ 
00000308 * 00000 DF 4444 £8. 000 , 
00000401 *000003F 9*000003F 0*°0000 


soooo4o1“oo00con SoeRe 


RT - CTERM LOG 10 16-SEP-1984 02:13:04 \VAX/VMS Macro v04-00 P 11 
VOses00 RTLOGSURI TE. STRING - write string to log $7 Ee obe 86:13:93 RTPAD.SRCJRTLOGIO.MAR; 1 _ (8) 
09 09 29 gs 
09 09 29 44 41 45 52 4E 55 i, 327 50$: -ascic /UNREAD) / 
54 55 50 4E 49 20 52 41 45 af 43 3" 1 328 60$: -ascic /CLEAR INPUT) / 
09 09 + 
09 09 09 29 45 54 49 52 57 i, “ 329 70$ -ascic /WRITE) / 
4C 50 4D 4F 43 20 45 54 49 38 7 2" AA 330 80$ -ascic /WRITE COMPLETION) / 
9 29 GE GF 49 54 ? 86 
54 55 4F 20 44 52 41 43 53 49 44 06° BD 331 90S: -ascic /DISCARD OUTPUT) / 
09 29 54 55 ; 34 
43 41 3¢ 4) rh 43 9 44 41 45 22 00° CE 332 100$: -ascic /READ CHARACTERISTICS) / 
09 29 53 43 49 54 53 49 52 4 $2 eS 
53 49 52 45 54 43 41 52 41 8 43 00° 6 ef 333 110$:  .ascic /CHARACTERISTICS) / 
09 29 53 43 49 re 8 a 
54 55 50 4E 49 20 4B 43 45 48 43 00' ashe 334 120$: -@scic /CHECK INPUT) / 
09 09 29 0 3 
54 4E 55 4F 43 20 54 55 50 4E 49 06° 0806 335 130$: .ascic /INPUT COUNT) / 
09 09 34 030 
45 54 41 54 53 20 54 55 50 ‘f 49 06° 3 336 1408: -ascic /INPUT STATE CHANGE) / 
09 29 45 47 4E 41 48 43 e $1 
09 09 29 4F 49 51 20 53 4D 56 +4 $5, 337 150$:  .ascic /VMS QI10) / 
41 4F 52 42 20 45 4E 49 3 50 55 b0° gf 338 160$: eascic /UPLINE BROADCAST) / 
09 29 54 53 41 43 $3 34 
59 46 49 52 45 56 20 44 41 43 3 06° rh 339 170$: eascic /READ VERIFY) / 
E 4 
6C 61 67 65 6C 6C 69 20 2A 2A 2A ‘. i 340 300$: .ascic /*** illegal/ 
6 
6 
; 
ef 
7 
af 
7 


ty 36 -long 150$,150$,150$ 
64 6E 69 42 0N' ar 23 10$: eascic /Bind/ 
64 6E 69 62 6E 55 00° ac 348 208: eascic /Unbind/ 


349 30$: eascic /Rebind/ 
A 350 40$: -ascic /Bind Accept/ 


@ 
WO 


: 


4 
0 
64 6E 69 62 65 52 i, 
74 70 65 63 63 41 20 64 6E 69 42 00 


voe=800 RTLOGSURI 


65 64 6F 4D 20 72 65 74 6E 45 00° te 

65 64 67 4D 20 74 69 78 45 O° cb 

64 6F 4D 20 6D 72 69 66 6E 6F 43 DB 
65 64 6F 4D 20 6F 4E 6° e 

20 2D 20 6D 72 65 74 43 00° : 
20 2D 20 65 64 6F 4D " : 

6C 61 67 65 6C 6C 69 00° 10 

07 0401 

0409 


352 60S: 
353 70$: 


354 80$: 
355 90$: 


356 100$: 
357 150$: 


358 


eascic 
eascic 
eascic 


~ascic 
eascic 
-ascic 
-ascic 


KH 13 
write string to log "OrSeP 71382 88: 18: % 


/Enter Mode/ 
/Exit Mode/ 
/Confirm Mode/ 


/No Mode/ 
/Cterm = / 
/Mode - / 
/illegal/ 


voo=000 


<z 
Po) 

=O 
ma 
tee 


SNNNNINOOOOOOOOOASA -O 


mi 
— 
cro 
o- 
om 
PD 


= 


onli 


So 
So 
[=] 
oS 
GOOOCGOGOOCOOCOCOOOCOO 


L 
I 
09 0 
FF 
FF 
FF 
4 
5 
00000000 0 9 
09900001 Q 0 
SSS ESS 
00000000 0 : 
¥ H 
020C 7? 
0 oC ee 
C 7 
24 44 41 50 54 52 000002A8"010E0000' 02A0 80 
45 43 41 52 54 8 . 81 
00000064 028 Hf 
00000288" 0287 8 
QO0000SiF 0288 84 
1F 85 
00000084 1F 8 
00000327" b355 8 
000003AB 0327 88 
Q3A8 34 
ue 
00000409 38 
0209 95 
409 9 
01 00000206"EF 00 €3 0409 9 
05 0411 9 
tis 9 
OC BB 041 400 
comsir 2 SE Se 
60000208 EF 3 D0 4 3 103 
42D 404 
42D 405 
42D 4 $ 
4 40 
50 00000000'°8F D1 044 4 
5 13 Q44F 4 
0 Bs +2} 410 
0068 1 045 411 
$26 tig 
456 41 
456 414 
456 415 


RING = write string to log 


I 13 
AX/VMS Macro V04-00 Page 13 


1 ~$6- 138% oe] :04 
-SEP-1984 05:15:40 CRIPAD.SRCIRTLOGIO.MAR;1 (10) 


epsect _RTPAD,LONG ; READ/WRITE DATA 
«ALIGN LONG 
DEBUG_ CHAN: -word 
DEBUG_BUF : . lon 
trace_flag: -wor 
v_open = 0 
m_open = 1 
vierror = 1 
m_error = 
save_log: long 0 
-Align LONG 
Logio_fab: SFAB FAC=PUT ,RAT=CR 
logio_rab: $RAB oetesen o_fab 
rtpad_dbg: eascid /RTPADSTRACE/ 
dbg$Soutbuf: -long 100 
- lon 10$ 
10S: ebLk 100 
file_name: long 132 
“hong 1$ 
1$: bik 132 


: RTPAD TRACE FACILITY (DEBUG CODE) 
*PSECT RTPAD,nowrt 


open_trace: 
~ #v_open,trace_flag,5$ ; Branch if we've been here before 
rs 
5$: PUSHR #*MA<R2,R3> 
movab etgad dbg.RO ; address of logical name 
movi #132, Tile_name 


movl r0,save_log 


STRNLOG_S LOGNAM = (RO),- ; Only trace if logical name defined 
RSLBUF = file_name,- 
RSLLEN = file_name 

capl #SS$_NORMAL ,RO 

BEQL 10$ 

CLRL R 

BRW 50$ 


10$: $FAO_S CTRSTR = LOGCTR - 
outbuf = dbg$outbuf,- 
outlen = dbgSoutbuf,- ; length 


RT - CTERM LOG 10 16-SEP-1984 02:13:04 VAX/VMS Macro V04-00 Page 14 
VOneo08 RTLOGSURITE STRING = write string to log mii ets 8g: 18:96 RTPAD.SRCJR TLOGIO. MAR; 1 . (10) 
r 118 Pl = #file_name 3 logging to... 
B000 pees" tt DF 04 41 PUSHAL DBGSOUTBUF 
00000000 ' GF 1 FB 2 é} CALLS) #1,G*LIBSPUT_OUTPUT 
00000283" EF 8 8F 0 04 8 4 mov #109 .¢b edbosou buf ; reset Length 
C'EF E 04 4 movab logio_ ne 3; fab address 
3 Cer a3 4 movab bogio. be : rab address 
a OOSIF‘EF 9 4 424 movb 2 Onene. fabSb fns(r2) 
cA O000S23°EF OD ret ? 5 mov | file-name+4,fabSl_fna(R2) 
4A 4 $ SCREATE FAB = (R2) 
0c 50 =—so«éEY rt ? 8 blbc r0,50$ 
485 430 SCONNECT RAB = (R3) 
07 50 =«C«EB 7 ? 1 508 blbs r0,1 0$ 
00000206'EF 02 C8 Bee) 4 ‘ : bisl #m_error,trace_flag ; Set error 
OC BA 04C8 434 1008: POPR #*M<R2,R$> 
05 O4CA 435 RSB 


RT = CTERM LOG 10 16-SEP=1 1 :04 AX/VMS Macro v04-00 P 
ae tty RTLOGSURITE.STRING = write string to log SasePaload 08:1 RIPAD SRCIRTLUGIOMAR:? =o" (It) 

4CB 437 DEBUG_SETUP:: ; Enable “\ to take i od 

00000200" a5 4c oi TSTW DEBUG_CHAN spages eS selicenpe Donan mage 

a 4p 43 BNEQ 10$ 
ay} Sesto cs Se 
= 
38 50 =—s«éEO rit ces 108: BLBC “Bena 3 error 

50 FC22 CF 9E O4EB 445 "  MOVAB_. »- DEBUG_MASK,RO : Address of mask 
AF 44g $Q10_$ CHAN = DEBUG CHAN,- 
4FO 944 FUNC = #10$_SETMODE!1O0SM_OUTBAND - 
us i Bhs agent 

08 50 «£9 a8 450 BLBC R5.99% 
FBD2 CF OOF 031 45 PUSHAL DEBUG_MSG ; SAY WE SET IT UP... 
00000000'GF 61 FB 051 re CALLS 4#1,G*CIBSPUT_OUTPUT 
05 454 99$: 
05 83s2 22 a 
0000 05 4 437 ENTRY DEBUG_AST,O 
7E oc 82 6 459 MOVPSL -(SP) 
00000202" EF Db 05 8 460 PUSHL DEBUG_ BUF 
00000000'8F DD 05 0 468 PUSHL #SS$ sBREAK: <REMS_ FACILITY@16> 
00000000 ' GF 04 FB 0536 46 CALLS #4,G*LIBSSIGNA 3; wake up Debug 
04 Bese cee =e 


L 13 1 
RING = write string to log : 


voe-000 


<z 
» 

es 
=o 
moa 
ne 


“SEP=1984 02:13:04 VAX/VMS Macro v04-00 Page 1 
~See TSBs BSE18 85 PAREN RS ratte lOO ast oe 8 


> | 
— 

cro 
o- 
om 
on 


0 
T 
00000 é rhe t CTP$B_PRO_MSGTYPE CTP$B_PRO_MSGTYPE 
rotype = - 
Sooo000% E is msgtype = CTPSB-MSGTYPE = CTPSB_PRO_MSGTYPE 
S3E 0s 47 
3 E 406 DBGSTRACE_10:: 
5 E 474 ; RO = scratch 
53E 475 ; R1 = Length 
53E +78 3; R2 - address 
53E 477 ; R3 = header string 
53E $28 3 R4 = scratch 
: ; 44 3; RS = scratch 
01 00000206"EF 01 +€1 OS3E 481 BBC #v_error,trace_flag,10$ 
FH aos, 8 
50 52 51 C1 0547 484 | ADDL3  R1,R2,RO ; Address at end of buff 
50 “00009500 BF 1 0548 485 cmPL”  #*409600,R0 $ make sure {t was en allocated message e+e 
E Be 8222 487 PUSHR #*M<R1,R2,R3,R4,R5> 
60 FBBE CF 10 2 556 = 488 MOVC3) #16,dbg$l_zeros,(r0) ; zero 
3— BA Beet $32 _ POPR #*M<R1,R2,R3,R4,R5> 
55 51 pO O55 491 MOVL — R1,R5 > save Length 
FEAS 4 328) 136 ; bsbw open_trace 3 check for open log file 
0564 494 : Output header 
0564 495; 
Bt £88 cos 
54 QO00025C°EF 9E 0564 498 "  MOVAB—_ Logio_rab,R4 - address of rab 
28 AS © 00000288'EF 9E a8 499 MOVAB dbgSodtbuf+8,rabSl_rbf (Rd); set buffer address 
27 OOOOOOOO'EF €E9 0373 $01 blbc cterm_flag,111$ ; branch if VAX 
50 62 9A OS7A 208 movzbl protype(R2),R0 : type 
51 FOE6 CF 9E b255 88 movab wag fype.table,nt ; table 
6140 ODD Re 505 PUSHL (RTISCROJ 3 type 
50 FODA CF 9E B 506 movab null_line,hO 
09 62 91 =OS8A 507 cmpb protype(re) ,#prosc_data 3: cterm data? 
0D 12 ; > e08 bneq 05$ 
50 04 A2 QA Bt 10 movzbl msgtype(r2),RO 3; byte of mess type 
51 FC65 CF 9 593 11 movab merecee table, R1 3 table of eesseee pes 
50 6140 oD oe \¢ rose, mov (r1)Cr0J,R0 ; address of message type string 
51 BEDO 059C 514 " pOPL sR 
OA 11 +4 13 BRB 115$ 
50 FOBE CF 9€E Al 19 111$: movab  null_line,RO 
51 FDOB9 CF 9E on6 \8 movab null_line,R1 
5A8 0 115$: S$FAO_S ctrstr = header_ctr,- 
5AB 1 outbuf = dbgsoutbut - 
5AB ¢ outlen = rab$w_rsz(R4).- ; Length 
5AB 1 = R3,- 3; to/from net 


- 


mM 13 


RT - CTERM LOG 10 16-SEP-1984 02:13:04 VAX/VMS Macro V04-00 Page 17 
VOe-000 RTLOGSWRITE_STRING = write string to log soars Ti 88:43:25 RTPAD.SRCJRTLOGIO.MAR; 1 (13) 
AB & P2 = Ri,- : foundation type 
AB 5 4, = 7 $ pease € type it cterm 
= 3 Len 
4E 50 9 CF 5 BLBC 02508 , 
CA § $PUT rab = r4 
42 50 €9 + ? blbc r0,250$ ; exit on error 
5D ¢ 3; output buffer 
5D . 
5D 4 1108: 
44 5 SFAO_S Ctrstr = memctr,- 
D § outbuf = dbgSoutbut - 
5D6 outlen = ra $w_rsz(R4),- ; length 
506 3 p = 12(R2),- 3 contents 'XL 
506 3 ¢ = Pens? om 
506 40 p35 = 4(R2),- 
506 41 p4 = (R2),- 
506 2%8 p> = #16,- ; length 'AF, PART 1 
0506 54 pS = R2,- 3; address 'AF, PART 2 
bape ete 7 = R2 3; address (addr) 
1A 50 €9 OSFB 45 BLBC RO,2508 ; ERROR? 
OSFE 546 
gare 547 $PUT rab = logio_rab 
0A 50 «ED 3688 e78 blbc r0,250$ 
52 10 ag 9 060 225 MOVA 16(R2) ,R2 ; bump address by longword 
s$.) CY C2 061 551 subl #16,R5 3; sutract from Length 
BF 14 061 33¢ bgtr 1108 : loop if more 
0617 53 200$: 
05 0617 554 RSB 
0618 555 250$: 
pois 228 QUIT 
D8 11 0630 57 brb 200$ 
063F 558 
063F $2) LOG_ASCIC:: 
063F 60 
be : 2) ; RO => points to ascic string to write to log 
01 00000206"EF 01 1 nat 88 BBC #v_errcor,trace_flag,10$ 
5 0647 64 RSB 
rt 65 10$: 
FOBE 30 064 06 bsbw open_trace ; open file if needed 
1 D 0648 6 pushl 3 Sav 
51 0000025C’EF E 064D o8 movab logio_rab,r1 ; rab 
$§ Al 8 654 § movzbw (r0)+>rab$w_rsz(R1) 3: size 
28 Al D 658 0 mov r0,rab$l_rbF(R1) 3 address 
65 71 $put rab=(R1) 3; put output 
51 8EDO 066 a popl R1 ; restore 
05 066 7? rs 3 exit 
66 74 
669 75 .end 


<z 


<ZD 


“SEP- 213: 04-00 Page 1 
RTLOGIO = CTERM LOG 10 19-SEP-1984 02:13:04 VAX/VMS Macro V 
Symbol table § SEP 1382 9g:13:08 ERIPAD SRCIRTLOGIO-MAR: 1 dd 
IBSSIGNAL eeeeeere 8X 4 
$5 T ABEND . ee toeerR 001¢9 é 
$$. TMP = LOGIO_FAB 3 CR : 
TMP = LOGIO-RAB CR 

$3 1nP2 = 1 LOG_ASCIC 63F RG 4 
HB a = OR 03 LOG"A_EXT 00 1FB R 2 
Hiren : BSS Bea * HEE 5g 
$312 . 000000 MESSAGE _TABLE _ RO0D01FE R04 
ETERMSL DG IO” 1000050 Re d nee 1¥BE TABLE 60000867 R 04 
CTE RMEDEEA. § 8 RG 4 ERROR ~ 2 0 90002 
a 43 — 800 00 R 2 “OPE = 00000001 
CTERM-FLAG ateeeeee X06 NAMS$B_ESL = 00000008 
Hee rn mmr : SHH 
CT BSB TRS CTYPE 2 §00900 ° : NAMSB_RSS = 0900000¢ 

” TYPE = 00000026 NAM$C "BID = 0000000 
SOCeTINRRECY. 0000012A RG = «04 NAM$C "BLN = 00000060 
SOS INEURI YE SoogoT es RG 24 NARS C_RA 28 . 0000008 F 
Se eSbOTBUF §0000288 4 $3 NAMSL RSA = 00000004 
BEGE TRACE. 10 Go9005HE Re GE MLE CIR a0900383 ot 
seg = 00000009 
DEBUG "BUF 00000202 R 0 PROS DATA = 

% PROTYPE = 00000000 
DEBUG CHAN Bo900e0 Ge PROT TPE = 89000006 
DEBUG_MSG OOOOO0EE R 04 RABSC BID = 00000001 

“SETUP 000004CB RG 04 RABSC BLN = 00000044 
ere : BR: He : BS 
FABSB FNS = 00 - = 9000001 
FABSC BID = 00000003 RABSL ~RBF = 90000028 
FABSC_BLN = 00000050 RABSL_ROP = BOR RON 
FABSCn WAR . 09900900 RABSUReD = 00000022 
FABSCTACG = iti RECORD QUIT ateeeree X 04 
atte = 0000001 REMS_ FACILITY ateneeee 04 
FAB St oNA = 00000030 TATUS stanteee 04 
ABST PNA = $0909 C RTLOGSWRITE_STRING 000000E0 04 
atte = 00000004 TPAD_DBG 000002A0 02 
F ABS CHA S $0900 Ave_COG 00000208 R 02 
FABER ee = 000000 ¢ SHR$~OPENOUT teeeeeee 04 
attest oo 8 SHRS~WRITEERR eteeeene 04 
FABSV~FILE_MODE = 000000 SHRS WRIT eeesnene 04 
eevee = $0 5000 SS$"MUSTCLOSEFL eeeetene 04 

& SS$_NORMAL teeeeeee 04 
FABSUT Coe . Soogpes SYSSASSIG eeeneees 04 
aris $608 F4R 2 SYSSCLOSE geeeenes 4 
FILE NAN 0 we R SYSSCONNECT seaeeeee 04 
Fite. 8 FOR 5 SYSSCREAT staeneee 04 
FILE STR 4 SYSSFAO Reeeeene 04 
FLGSA_LOGGING = 0 0 SYSSFAO eaverere 4 
FLG$V~LOGGING = 0000 9 ‘ SYSSPUT senscene 4 
SEADE 800861 4 SYSSSETAST ateeeene 04 
WEADER, CTR Reekeeae x 4 SYSSTRNLOG eeeeeene 04 
{os oproaw tereeeee X 04 SYSSWAKE aeeeeeee GX 06 
LIBSPUT_ OUTPUT eereneee xX 8 TRACE_FLAG 00000206 R 02 


Ive working set Limit was 1500 pages - 
64725 bytes (127 pages) of virt memory were used to buffer the intermediate cod 

There were 60 pages of symbol table space allocated to hold 994 non-local and 53 [oral symbols. 

575 source Lines were read in Pass 1, producing 32 object records in Pass 2. 

39 pages cf virtual memory were used to define 32 macros. 


Macro Library name Macros defined 


BS SEtttN RTPAD. yt WTF -MLB;1 3 
$255$DUA28:(SYS.0B 0 
“$255$DUA28: SYSLIBISTARLET. Cale: :2 6 
TOTALS (all Libraries) 9 


1317 GETS were required to define 29 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RTLOGIO/OBJ=OBJ$:RTLOGIO MSRC$:RTLOGIO/UPDATE=(ENH$:RTLOGIO) +EXECML$/LIB+LIB$:RTPAD/LIB 


RTLOGIO - CTERM LOG 10 197-360-1388 96:13:98 AX/VMS Macro V04-00 Page 
a table -SEP-1984 05:15:40 (CRTIPAD.SRCIJRTLOGIO.MAR; 1 
YDESC eeeeeeee =X o% 
UTILSREPORT_10_ERROR eeeeeeee YX 4 
V_ERROR = BANOO RR 
V N = 00000000 
WAKEFLAG weeneeee KX 04 
Pre wae a meee mmm + 
! Psect synopsis : 
PSECT name Allocation PSECT No. Attributes 
ABS 0G000000 <( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT aes BYTE 
S$ 00000000 <¢ 0.) 01 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
RTPAD QOOO03AB ( 939.) 8 ( §°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEL LONG 
SRMSNAM 0000000: ( 11.) O35 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
PAD 00000669 ( 1641.) 04 ¢ 4.) NOPIC USR CON’ REL LCL NOSHR EXE RD NOWRT NOVEC BYTE 
focusecsusnsseneccesnnces$ 
! Performance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 29 00:00:00.03 00:00:01.79 
Command processing 107 00:00:00.44 00:00: 202.18 
Pass 1 350 00:00:08.05 00:00:35.64 
Symbol table sort 0 00:00:00.99 Sb TS a 
Pass 2 115 00:00:01.74 00:00:05.08 
Symbol table output 14 00:00:00.07 00:00:00.31 
Psect synopsis output 2 09:00:00.02 00:00:00.02 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 619 00:00:11.35 00:00:47.99 


wo 
ad 


1 
(1 


0334 AH-BT1i3A-SE 7 T CORPORATION 
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